object Form1: TForm1
  Left = 361
  Top = 121
  Width = 784
  Height = 360
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object DBChart1: TDBChart
    Left = 0
    Top = 0
    Width = 776
    Height = 333
    AnimatedZoom = True
    BackWall.Brush.Color = clWhite
    Title.Text.Strings = (
      'Cr'#233'ditos Digitais por Operadora')
    BottomAxis.DateTimeFormat = 'd/M/yyyy'
    LeftAxis.Title.Caption = 'Valores'
    View3D = False
    View3DOptions.Elevation = 315
    View3DOptions.Orthogonal = False
    View3DOptions.Perspective = 0
    View3DOptions.Rotation = 360
    Align = alClient
    TabOrder = 0
    object Series1: TLineSeries
      Marks.ArrowLength = 20
      Marks.Style = smsValue
      Marks.Visible = False
      DataSource = qryGrafico1
      SeriesColor = clBlue
      Title = 'TIM'
      XLabelsSource = 'MESANO'
      LinePen.Color = clBlue
      LinePen.Width = 5
      Pointer.InflateMargins = False
      Pointer.Style = psRectangle
      Pointer.Visible = True
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
      YValues.ValueSource = 'VALORCARTOES'
    end
    object Series2: TLineSeries
      Marks.ArrowLength = 20
      Marks.Visible = False
      DataSource = qryGrafico2
      SeriesColor = clRed
      Title = 'Claro'
      XLabelsSource = 'MESANO'
      LinePen.Color = 4227327
      LinePen.Width = 6
      Pointer.InflateMargins = True
      Pointer.Style = psRectangle
      Pointer.Visible = True
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
      YValues.ValueSource = 'VALORCARTOES'
    end
    object Series3: TLineSeries
      Marks.ArrowLength = 20
      Marks.Visible = False
      DataSource = qryGrafico3
      SeriesColor = clFuchsia
      Title = 'Oi'
      XLabelsSource = 'MESANO'
      LinePen.Color = 4227327
      LinePen.Width = 6
      Pointer.InflateMargins = True
      Pointer.Style = psRectangle
      Pointer.Visible = True
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
      YValues.ValueSource = 'VALORCARTOES'
    end
  end
  object qryGrafico1: TADOQuery
    Connection = FormPrincipal.cnRGT
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT '
      
        'CAST(MONTH(DATA_VENDA) AS VARCHAR(2))+'#39'/'#39'+CAST(YEAR(DATA_VENDA) ' +
        'AS CHAR(4)) AS MESANO,'
      
        'SUM(CARTOES) AS CARTOES, SUM(CARTOES*VALOR_CARTAO) AS VALORCARTO' +
        'ES  FROM V_TOTALCARTOESDIA'
      'WHERE (MONTH(DATA_VENDA) BETWEEN 1 AND 10)'
      'AND (YEAR(DATA_VENDA) BETWEEN 2005 AND 2005)'
      'AND (CONVENIOS_CODIGO=1)'
      
        'GROUP BY CAST(MONTH(DATA_VENDA) AS VARCHAR(2))+'#39'/'#39'+CAST(YEAR(DAT' +
        'A_VENDA) AS CHAR(4))'
      
        'ORDER BY CAST(MONTH(DATA_VENDA) AS VARCHAR(2))+'#39'/'#39'+CAST(YEAR(DAT' +
        'A_VENDA) AS CHAR(4))')
    Left = 624
    Top = 48
    object qryGrafico1MESANO: TStringField
      FieldName = 'MESANO'
      Size = 7
    end
    object qryGrafico1CARTOES: TIntegerField
      FieldName = 'CARTOES'
      ReadOnly = True
    end
    object qryGrafico1VALORCARTOES: TBCDField
      FieldName = 'VALORCARTOES'
      ReadOnly = True
      Precision = 19
    end
  end
  object qryGrafico2: TADOQuery
    Connection = FormPrincipal.cnRGT
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT '
      
        'CAST(MONTH(DATA_VENDA) AS VARCHAR(2))+'#39'/'#39'+CAST(YEAR(DATA_VENDA) ' +
        'AS CHAR(4)) AS MESANO,'
      
        'SUM(CARTOES) AS CARTOES, SUM(CARTOES*VALOR_CARTAO) AS VALORCARTO' +
        'ES  FROM V_TOTALCARTOESDIA'
      'WHERE (MONTH(DATA_VENDA) BETWEEN 1 AND 10)'
      'AND (YEAR(DATA_VENDA) BETWEEN 2005 AND 2005)'
      'AND (CONVENIOS_CODIGO=2)'
      
        'GROUP BY CAST(MONTH(DATA_VENDA) AS VARCHAR(2))+'#39'/'#39'+CAST(YEAR(DAT' +
        'A_VENDA) AS CHAR(4))'
      
        'ORDER BY CAST(MONTH(DATA_VENDA) AS VARCHAR(2))+'#39'/'#39'+CAST(YEAR(DAT' +
        'A_VENDA) AS CHAR(4))')
    Left = 672
    Top = 72
    object qryGrafico2MESANO: TStringField
      FieldName = 'MESANO'
      Size = 7
    end
    object qryGrafico2CARTOES: TIntegerField
      FieldName = 'CARTOES'
      ReadOnly = True
    end
    object qryGrafico2VALORCARTOES: TBCDField
      FieldName = 'VALORCARTOES'
      ReadOnly = True
      Precision = 19
    end
  end
  object qryGrafico3: TADOQuery
    Connection = FormPrincipal.cnRGT
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT '
      
        'CAST(MONTH(DATA_VENDA) AS VARCHAR(2))+'#39'/'#39'+CAST(YEAR(DATA_VENDA) ' +
        'AS CHAR(4)) AS MESANO,'
      
        'SUM(CARTOES) AS CARTOES, SUM(CARTOES*VALOR_CARTAO) AS VALORCARTO' +
        'ES  FROM V_TOTALCARTOESDIA'
      'WHERE (MONTH(DATA_VENDA) BETWEEN 1 AND 10)'
      'AND (YEAR(DATA_VENDA) BETWEEN 2005 AND 2005)'
      'AND (CONVENIOS_CODIGO=3)'
      
        'GROUP BY CAST(MONTH(DATA_VENDA) AS VARCHAR(2))+'#39'/'#39'+CAST(YEAR(DAT' +
        'A_VENDA) AS CHAR(4))'
      
        'ORDER BY CAST(MONTH(DATA_VENDA) AS VARCHAR(2))+'#39'/'#39'+CAST(YEAR(DAT' +
        'A_VENDA) AS CHAR(4))')
    Left = 632
    Top = 120
    object qryGrafico3MESANO: TStringField
      FieldName = 'MESANO'
      Size = 7
    end
    object qryGrafico3CARTOES: TIntegerField
      FieldName = 'CARTOES'
      ReadOnly = True
    end
    object qryGrafico3VALORCARTOES: TBCDField
      FieldName = 'VALORCARTOES'
      ReadOnly = True
      Precision = 19
    end
  end
end
